unit Class_K1;

interface

uses
  SysUtils, Classes, DataEngine;

type
  TK1 = class(TBaseClass)
  public
    BM: string;
    MC: string;
    JC: string;
    YNXJ: string;
  public
    function GetFullName: string;

    destructor Destroy; override;
  end;

implementation

{ TK1 }

destructor TK1.Destroy;
begin

  inherited;
end;

function TK1.GetFullName: string;
begin
  Result := '[' + BM + ']' + MC; 
end;

end.
